home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 3090 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  3.1 KB
  1. Path: news.internet.dk!s-t-j
  2. From: s-t-j@internet.dk (Stig Joergensen)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: Probl. with datatypes.
  5. Date: 11 Feb 96 00:35:55 CET
  6. Organization: Who knows?
  7. Message-ID: <311d8e1d@internet.dk>
  8. NNTP-Posting-Host: modem2-7.internet.dk
  9. X-GateSoftware: AmiGate 1.6b (28.1.96)
  10.  
  11.  
  12. Hi out there.
  13.  
  14.  
  15. I have a problem (hmm. 2 problems)
  16.  
  17.  
  18. 1) Where can I find some info on datatypes ?
  19.  
  20. 2) Why will this code not refresh the datatype picture/gadget on my own window
  21.  
  22.  
  23. .... open libraries etc
  24.  
  25. DISPLAYGADGET:    MOVE.L     DATALIBBASE(A5),A6
  26. .OPENSOURCE       MOVE.L     #IFFFILENAME,D0
  27.                   LEA        NEWOBJECTATTRS(A5),A0
  28.                   CALL       NewDTObjectA
  29.                   MOVE.L     D0,OBJECT(A5)
  30.                   BEQ.W      .FAIL
  31.  
  32. .ADDIT            MOVE.L     D0,A2
  33.                   SUB.L      A1,A1
  34.                   MOVE.L     WINDOWPTR(A5),A0
  35.                   MOVEQ.L    #$FFFFFFFF,D0
  36.                   CALL       AddDTObject
  37.  
  38. .REFRESH          MOVE.L     OBJECT(A5),A0
  39.                   MOVE.L     WINDOWPTR(A5),A1
  40.                   SUB.L      A2,A2
  41.                   SUB.L      A3,A3
  42.                   CALL       RefreshDTObjectA
  43.                   BRA.W      REFRESHWINDOW
  44.  
  45. .FAIL             MOVE.L     DOSLIBBASE(A5),A6
  46.                   CALL       IOERR
  47.                   MOVE.L     D0,RETURNFAULT(A5)
  48.                   BRA.W      CLOSEWINDOW
  49.  
  50. REFRESHWINDOW:    MOVE.L     WINDOWPTR(A5),A1
  51.                   MOVE.L     wd_firstgadget(a1),A0
  52.                   SUB.L      A2,A2
  53.                   MOVE.L     INTUILIBBASE(A5),A6
  54.                   CALL       REFRESHGADGETS
  55.  
  56. .... some other code stuff
  57.  
  58. .... some data 
  59.  
  60. NEWOBJECTATTRS:   DC.L       DTA_SourceType,DTST_FILE
  61.                   DC.L       DTA_GroupID,GID_PICTURE
  62.                   DC.L       GA_Left,20
  63.                   DC.L       GA_Top,20
  64.                   DC.L       GA_Width,56
  65.                   DC.L       GA_Height,48
  66.                   DC.L       DTA_UserData,'PIC1'
  67.                   DC.L       TAG_DONE
  68.  
  69. IFFFILENAME:      DC.B       'DH3:Pictures/Dock-Brushes/FileManager.brush',$00
  70.  
  71. .... some more data
  72.  
  73. by the way, my window look like this
  74.  
  75. WINDOW:           DC.L       WA_Left,50
  76.                   DC.L       WA_Top,50
  77.                   DC.L       WA_Width,200
  78.                   DC.L       WA_Height,100
  79.                   DC.L       WA_Title,WINDOWTITLE
  80.                   DC.L       WA_MinWidth,200
  81.                   DC.L       WA_MinHeight,100
  82.                   DC.L       WA_MaxWidth,200
  83.                   DC.L       WA_MaxHeight,100
  84.                   DC.L       WA_CloseGadget,TRUE
  85.                   DC.L       WA_Backdrop,FALSE
  86.                   DC.L       WA_Borderless,TRUE
  87.                   DC.L       WA_RMBTrap,TRUE
  88.                   DC.L       WA_ScreenTitle,SCREENTITLE
  89.                   DC.L       WA_PubScreenName,PUBNAME
  90.                   DC.L       TAG_DONE
  91.  
  92. and the IDCMP will be set to $00800260 witch is some boopsi stuff + close +
  93. gadget up&down
  94.  
  95.  
  96.  
  97.  \!/   Stig Joergensen           System Designer @ DFDS A/S  \!/
  98. -- --                            Scandinavian Seaways       -- --
  99.  /!\   s-t-j@internet.dk         Transport Department        /!\
  100.  
  101.  
  102.